www.gusucode.com > 忠网网站广告管理系统 ZonGG V1.3 > 忠网网站广告管理系统 ZonGG V1.3\code\GGpicDel.asp
<!-- #INCLUDE FILE="login.asp" --> <% '///********************************* ' 广告图删除 参数:id 广告图 id '********************************/// pid=trim(request("id")) if isnumeric(pid) then Dim XMLnode Dim brstr:brstr=chr(13)&chr(10)&chr(9) '规范 XML 样式 conn.execute("delete from Advertisement where Picid="&cint(pid)) '' 此过程实际上是从 pictrue.xml 删除一条数据 可以使用 xml 中的 remove 取代 暂时用此方法 '' if PubCopyFile(dataxml&"/pictrueBase.xml",dataxml&"/pictrue.xml")="Suc" then Dim objXML2,rootNewNode sql="select * from Advertisement" rs.open sql,conn,1,1 do while not rs.eof XMLnode=brstr&"<Pic><Picid>"&rs(0)&"</Picid><Picurl>"&rs(1)&"</Picurl></Pic>"&brstr ''' 取出记录存入 xml ''' Set objXML =Server.CreateObject("Microsoft.XMLDOM") '创建一个XML对像 strSourceFile=Server.MapPath(dataxml&"/pictrue.xml") objXML.load(strSourceFile) '把XML文件读入内存 Set objRootsite = objXML.documentElement.selectSingleNode("Pictrue") '选取节点 Pictrue set objXML2=Server.CreateObject("Microsoft.XMLDOM") '建立一个新XML对像 objXML2.loadXML(XMLnode) '把XML版片段读入内存中 set rootNewNode=objXML2.documentElement '获得objXML2的根节点 objRootsite.appendChild(rootNewNode) '把XML片段插入 objXML.save(strSourceFile) Set objXML2=nothing set rootNewNode=nothing Set objXML =nothing ''' rs.movenext loop rs.close end if end if %>